﻿Imports Microsoft.Office.Interop.Word

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports EBookGen


'''<summary>
'''Dies ist eine Testklasse für "MyDocumentTest" und soll
'''alle MyDocumentTest Komponententests enthalten.
'''</summary>
<TestClass()> _
Public Class MyDocumentTest

    Private testContextInstance As TestContext

    '''<summary>
    '''Ruft den Testkontext auf, der Informationen
    '''über und Funktionalität für den aktuellen Testlauf bietet, oder legt diesen fest.
    '''</summary>
    Public Property TestContext() As TestContext
        Get
            Return testContextInstance
        End Get
        Set(value As TestContext)
            testContextInstance = value
        End Set
    End Property

#Region "Zusätzliche Testattribute"
    '
    'Sie können beim Verfassen Ihrer Tests die folgenden zusätzlichen Attribute verwenden:
    '
    'Mit ClassInitialize führen Sie Code aus, bevor Sie den ersten Test in der Klasse ausführen.
    '<ClassInitialize()>  _
    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
    'End Sub
    '
    'Mit ClassCleanup führen Sie Code aus, nachdem alle Tests in einer Klasse ausgeführt wurden.
    '<ClassCleanup()>  _
    'Public Shared Sub MyClassCleanup()
    'End Sub
    '
    'Mit TestInitialize können Sie vor jedem einzelnen Test Code ausführen.
    '<TestInitialize()>  _
    'Public Sub MyTestInitialize()
    'End Sub
    '
    'Mit TestCleanup können Sie nach jedem einzelnen Test Code ausführen.
    '<TestCleanup()>  _
    'Public Sub MyTestCleanup()
    'End Sub
    '
#End Region


    '''<summary>
    '''Ein Test für "indexByFormat"
    '''</summary>
    <TestMethod()> _
    Public Sub indexByFormatTest()
        Dim target As MyDocument = New MyDocument(1)

        Dim format1 As MyFormat = New MyFormat("Calibri")
        Dim format2 As MyFormat = New MyFormat("Arial")

        ReDim target.globalFormats(1)
        target.globalFormats(0) = format1
        target.globalFormats(1) = format2

        Dim format_1 As MyFormat = New MyFormat("Calibri")
        Dim format_2 As MyFormat = New MyFormat("Cambria")
        Dim expected_1 As Integer = 0
        Dim expected_2 As Integer = -1
        Dim actual_1, actual_2 As Integer
        actual_1 = target.indexByFormat(format_1)
        actual_2 = target.indexByFormat(format_2)

        Assert.AreEqual(expected_1, actual_1)
        Assert.AreEqual(expected_2, actual_2)
    End Sub

    '''<summary>
    '''Ein Test für "insertFormatByStyle"
    '''</summary>
    <TestMethod()> _
    Public Sub insertFormatByStyleTest()
        Dim target As MyDocument = New MyDocument() ' TODO: Passenden Wert initialisieren
        'Dim style As Style = Nothing ' TODO: Passenden Wert initialisieren
        'target.insertFormatByStyle(style)
        'Assert.Inconclusive("Eine Methode, die keinen Wert zurückgibt, kann nicht überprüft werden.")
    End Sub
End Class


